home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / bbs / rchat401.zip / RSB3CHAT.MRG < prev    next >
Text File  |  1992-09-14  |  1KB  |  25 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against OLD\RBBSSUB3.BAS to produce RBBSSUB3.BAS
  3. * OLD\RBBSSUB3.BAS:  Date 9-06-1991  Size 138112 bytes
  4. * ------------[ Created 09-06-1991 13:00:00 ]------------
  5. * REPLACING old line(s) by new
  6. 29000 IF LockedEn$ = ZWasEN$ THEN _
  7.          RETURN
  8. * ------[ first line different ]------
  9.       LockedEn$ = ZWasEN$
  10. REM   MID$(ZLockStatus$,10,2) = "LD"                                 ' RCHAT
  11. REM   ZSubParm = 2                                                   ' RCHAT
  12. REM   CALL Line25                                                    ' RCHAT
  13.       ZLockFileName$ = ZWasEN$
  14.       ON ZNetworkType GOTO 29100,29010,22300,29300,22500,29710
  15. * REPLACING old line(s) by new
  16. 29500 IF LockedEn$ <> ZWasEN$ THEN _
  17.          RETURN
  18.       LockedEn$ = ""
  19. * ------[ first line different ]------
  20. REM   MID$(ZLockStatus$,10,2) = "UD"                                 ' RCHAT
  21. REM   ZSubParm = 2                                                   ' RCHAT
  22. REM   CALL Line25                                                    ' RCHAT
  23.       ZLockFileName$ = ZWasEN$
  24.       ON ZNetworkType GOTO 29600,29510,25300,29650,25500,29810
  25.